(appt-make-list): Don't splice quotes and date onto message.

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 62296bb9a5704dc86bc79523598212bbd7e49f62..22cc7e1b84c7b97672248d9b38f8d3ab313d6d31 100644 (file)
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -525,7 +525,7 @@ The time should be in either 24 hour format or am/pm format."
                          (calendar-date-equal 
                           (calendar-current-date) (car (car entry-list))))
                (let ((time-string (substring (prin1-to-string 
-                                              (cdr (car entry-list))) 2 -2)))
+                                              (cadr (car entry-list))) 2 -1)))
 
                  (while (string-match
                          "[0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?.*"